home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / sources.lha / sources / sys / z_undefined.t < prev    next >
Text File  |  1988-02-05  |  2KB  |  71 lines
  1. (herald zvm_undefined (env tsys))
  2.  
  3. (define-local-syntax (define-undefined name)
  4.   `(define (,name . args)
  5.      (error "call to undefined procedure - ~a"
  6.             (cons ',name args))))
  7.  
  8. ;;; Handlers
  9.  
  10. ;;; i/o ports
  11.  
  12. ;;; i/o operations
  13.  
  14. (define-undefined PRINT-FLONUM)
  15. (define-undefined READ-OBJECT)
  16. (define-undefined MAKE-OUTPUT-WIDTH-PORT)
  17.  
  18.  
  19. ;;; Filenames
  20.  
  21. (define-undefined MAKE-FILENAME)
  22. (define-undefined ->FILENAME)
  23. (define-undefined FILENAME-NAME)
  24. (define-undefined FILENAME?)
  25. (define-undefined FILENAME->STRING)
  26. (define-undefined PARSE-HERALD)
  27. (define-undefined HERALD-FILENAME)
  28.  
  29.  
  30. ;;; T repl
  31.  
  32. (define-undefined STANDARD-READ-TABLE)
  33.  
  34. (define-undefined T-FORMAT-AUX)
  35. (define-undefined T-BREAKPOINT)
  36. (define-undefined PREVIOUS-CONTINUATION)
  37. (define-undefined GET-LOADED-FILE)
  38. (define-undefined GET-ENVIRONMENT)
  39.  
  40. ;;; Loader
  41.  
  42. (define-undefined SET-BIGNUM-SIGN!)
  43. (define-undefined BIGNUM-NEGATE)
  44. (define-undefined CREATE-BIGNUM)
  45. (define-undefined MAKE-DUMP-STATUS)
  46. (define-undefined STRING->FLONUM)
  47.  
  48.  
  49. ;;; Syntax
  50.  
  51. (define-undefined ENV-FOR-SYNTAX-DEFINITION)
  52. (define-undefined MAKE-SYNTAX-TABLE)
  53. (define-undefined SYNTAX-DESCRIPTOR?)
  54. (define-undefined CHECK-SPECIAL-FORM-SYNTAX)
  55. (define-undefined STANDARD-SYNTAX-TABLE)
  56. (define-undefined EXPAND-MACRO-FORM)
  57. (define-undefined SYNTAX-TABLE-ENTRY)
  58.  
  59.  
  60. ;;; Crawl
  61.  
  62. (define-undefined MAYBE-CRAWL-COMPONENT)
  63. (define-undefined CRAWL-PRINT-COMPONENT)
  64. (define-undefined CRAWL-EXHIBIT)
  65. (define-undefined EXHIBIT-STANDARD-EXTEND)
  66. (define-undefined CRAWL-PUSH)
  67. (define-undefined FRAME-PRINT-SYNOPSIS)
  68. (define-undefined PRINT-ONE-LINE)
  69. (define-undefined PRETTY-PRINT)
  70. (define-undefined PP-LIST)
  71.